home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 June / What PC June 1996.iso / data / showcase / vrdemo.dir / 00002_Controller.ls < prev    next >
Encoding:
Text File  |  1996-02-04  |  717 b   |  25 lines
  1. on controllerCreate
  2.   global sliderLeft, sliderRight, sliderRange, sliderSprite, sliderButtonSprite, videoSprite, volumeSprite, volumeLow, volumeMed, volumeHigh
  3.   set sliderLeft to 299
  4.   set sliderRight to 407
  5.   set sliderRange to sliderRight - sliderLeft
  6.   set videoSprite to 3
  7.   set volumeSprite to 4
  8.   set sliderSprite to 7
  9.   set sliderButtonSprite to 8
  10.   puppetSprite(videoSprite, 1)
  11.   puppetSprite(volumeSprite, 1)
  12.   puppetSprite(sliderSprite, 1)
  13.   puppetSprite(sliderButtonSprite, 1)
  14.   set volumeLow to 1
  15.   set volumeMed to 3
  16.   set volumeHigh to 7
  17. end
  18.  
  19. on controllerDestroy
  20.   puppetSprite(videoSprite, 0)
  21.   puppetSprite(volumeSprite, 0)
  22.   puppetSprite(sliderSprite, 0)
  23.   puppetSprite(sliderButtonSprite, 0)
  24. end
  25.